unit uRoom;

interface

uses
  uObject, uTile;

type
  TGameRoom = Record
  private
    { Private declarations }
  public
    { Public declarations }
    name: String;
    objects: Array of Array of TGameObject;
    tiles: Array of Array of TGameTile;
    width: Integer;
    height: Integer;
    willShowName: Boolean;
  End;

procedure ResizeRoom(w, h: Integer; room: TGameRoom);

implementation

procedure ResizeRoom(w, h: Integer; room: TGameRoom);
var
  i: Integer;
begin
  room.width := w;
  room.height := h;
  SetLength(room.objects, w);
  SetLength(room.tiles, w);
  for i := 0 to w-1 do
    begin
      SetLength(room.objects[i], h);
      SetLength(room.tiles[i], h);
    end;
end;

end.
